home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / LN2.4.5.sit / LN2.4.5 / Life Note 2.4.5e / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-10-19  |  22KB  |  61 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.5e</name>
  5.     <id>-1</id>
  6.     <cardCount>34</cardCount>
  7.     <cardID>5476</cardID>
  8.     <listID>5138</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>on openStackglobal dateT,pageR,PW,Ch,LNVer,Jin,Einput 99 into Chset textArrows to trueset lockMessages to trueput cd field "PW" of cd "Shurey" into PWput word 3 of line 2 of cd field "Shurey" into LNVerif the commandKey is down thenshow Variable Watchershow Message Watcherend if--ﾃ①Menuﾃ‡ﾃεｧﾃ古ｨﾃｺif cd field "Handle" in cd "Shurey" is not "Shurey" thenrepeat for 3delete menuItem 1 from menu "File"delete menuItem 7 from menu "Edit"end repeatdelete menu "Go"end if--ﾃ①ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ‹lock screengo to cd "ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹1"if menu "ﾃδｴ窶ｺﾆ’" <> cd btn "Cfg1" then         --ﾃｬoﾃｲ^ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ï｣ｿﾃｭ竕､ﾃ‡笳甘‡ﾃˆrepeat with N=1 to 4set cursor to busyput value of selectedLine of cd btn N into SFput menu "ﾃδｴ窶ｺﾆ’" into cd btn Nselect line selFont(SF,N) of cd btn Nsend mouseUp to cd btn Nend repeatend ifgo to cd "ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹2"put menu "Keyboards" into Mrepeat with N=4 to (number of lines of M)if line N of M is "-" thenput N into Kexit repeatend ifend repeatput line 3 to (K-1) of M & return & "OFF" into Jinif Jin <> cd btn "JIM" then put Jin into cd btn "JIM"put line (K+1) to (number of lines of M) of M & return & "OFF" into Einif Ein <> cd btn "EIM" then put Ein into cd btn "EIM"put value of selectedLine of cd btn "JIM" into Jinput value of selectedLine of cd btn "EIM" into Einput the date into dateTconvert dateT to dateItemsput (item 2 of dateT) into pageRset lockMessages to falsego to cd "AddressIndex"go to cd "SupportIndex"go to cd "CCardIndex"go to cd "CBInput"     -- BgBNsend "mouseUp" to bg btn "New"     -- ﾃ雨ﾃ…[ﾃ栄ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪgo to cd "RBInput"send "mouseUp" to cd btn "New"     -- ﾃ雨ﾃ…[ﾃ栄ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪset lockMessages to truego to cd "MenuIndex"put CvDate(dateT) into dateR                                --ﾃｧﾂｰﾃｬﾋ凖‡ﾃεｬﾋ凖ｯtﾃ‡ï｣ｿﾃｭ竕､ﾃ‡笳甘‡ﾃˆif dateR is not cd field "Date" then   --ﾃｧﾂｰﾃｬﾋ凖‡ﾃεｬﾋ凖ｯtﾃ‡竏†"Date"ﾃｬ窶｡ﾃ‡ﾃεｬﾋ凖ｯtﾃ‡ï｣ｿﾃｮ窶ｰﾃ､rif item 1 of cd field "PW" in cd "Shurey" is 1 thengo to cd "Autobiography3"if cd field "PPterm" is not empty thenif CvSort(addMonth(dateT)) > CvSort(CvItem(cd field "PPterm")) and cd field "PCheck" is empty thenput "L" into cd field "PCheck"put CvSort(CvItem(cd field "PPterm")) & ",ﾃ英ﾃ厩ﾃ榎ﾃ…[ﾃ曳ﾃｩgﾃｳpﾃ､ﾋ凖･ﾂｿ,,M" & return after bg field "Event" in cd "Schedule"go to cd "Schedule"send "mouseUp" to bg btn "Sort"go to cd "Autobiography3"end ifend ifif cd field "DLterm" is not empty thenif CvSort(addMonth(dateT)) > CvSort(CvItem(cd field "DLterm")) and cd field "DCheck" is empty thenput "L" into cd field "DCheck"put CvSort(CvItem(cd field "DLterm")) & ",ﾃ｢^ﾃｬ]ﾃｱ竏†ﾃ｣ﾃｱﾃｨﾃｿﾃｧXﾃｪVﾃ､ﾋ凖･ﾂｿ,,M" & return after bg field "Event" in cd "Schedule"go to cd "Schedule"send "mouseUp" to bg btn "Sort"end ifend ifend ifcheckList          -- Budget NotedailyTime          -- 4 action / 3 note--ﾃ①"DailySoft"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃ､Jﾃｩngo to cd "DailySoft"put word 1 of value of selectedLine of cd btn "Circuit" into SNput number of lines of cd btn "Circuit" into SLNif SN is "Circuit" thenrepeat with N=9 to 15send "mouseUp" to cd btn Nend repeatend ifif SN is "Weekly" then                                        -- Weekly Circuitsend "mouseUp" to cd btn ((item 7 of dateT)+8)end ifif SN is "Random" then                                        -- Weekly Circuitsend "mouseUp" to cd btn ((word 1 of value of line (random of (SLN-3)+1) of cd btn "Circuit")+8)end ifif SN > 0 and SN < 8 then                                     -- Normal Circuitsend "mouseUp" to cd btn (SN+8)put word 2 of selectedLine of cd btn "Circuit" into SNif SN=(SLN-2) then put 1 into SNselect line (SN+1) of cd btn "Circuit"end if--ﾃ①"DailySoft"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\end ifset lockMessages to falsego to cd "MenuIndex"put dateR into cd field "Date"         --ﾃｧﾂｰﾃｬﾋ凖‡ﾃεｬﾋ凖ｯtﾃ‡ï｣ｿ"Date"ﾃ‡窶ｦﾃ｣Lﾃｬﾂｸhide cd field "Shurey"put 11 into Chset lockMessages to trueif cd field "name" of cd "Autobiography1" is empty then go to cd "Autobiography1"set lockMessages to falseend openStackon dailyTimeglobal dateT,pageRput empty into eventFput item 2 of dateT into flag2                                  --ﾃｧﾂｰﾃ･ﾃｩﾃ‡ﾃε映ﾃ…[ﾃ運--ﾃ①ﾃｩgﾃｳpﾃｩ窶愿‡ﾃεｭaﾃｪ竏づｬﾋ凖‡ï｣ｿﾃｭ竕､ﾃ‡笳甘‡ﾃˆgo to cd "MenuIndex"if "Password is Right !" is cd field "Box" of cd "Shurey" thenif item 2 to 3 of dateT is item 2 to 3 of CvItem(cd field "BirthDay" of cd "Shurey") thenplay "flute" tempo 400 "cq ce dh ch fh eh re cq ce dh ch gh fh re"put "Happy Birthday to You !" into cd field "License"elseif cd field "Handle" of cd "Shurey" is empty thenput "Licensed to You " into cd field "License"elseput "Licensed to " & cd field "Handle" of cd "Shurey" into cd field "License"end ifend ifend if--  "BirthdayCard"ﾃ‡ﾃεｬ]ﾃｫﾃｳset lockMessages to falsego to cd "BirthdayCard"if value of selectedLine of cd btn "ﾃ映ﾃ…[ﾃ運ﾃｬ]ﾃｫﾃｳ" is "ON" thenput cd field "data" & return after eventFend ifset lockMessages to true--ﾃ①"Schedule"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃ､Jﾃｩngo to cd "Schedule"put empty into eventSput empty into eventSCput number of lines in bg field "Event" into lineNput CvSort(dateT) into DTrepeat with countVar=1 to lineNset cursor to busyput empty into itemSput line countVar in bg field "Event" into lineSput item 1 of lineS into DSif char 1 of DS is "M" then  -- ﾃｱﾃ ﾃ･ﾃｩﾃｨﾃ ﾃｳﾃｹput char 1 to 6 of DT into char 1 of DSput StoI(DS) into DSif item 3 of DS < char 7 to 8 of DT thenput addMonth(DS) into DSend ifput CvSort(FindDate(DS,"C")) into DSend ifif char 1 of DS is "W" thenif item 7 of dateT is char 3 of DS then  -- ﾃｱﾃ ﾃｳjﾃｬﾋ凖ｨﾃ ﾃｳﾃｹput dateT into DSelsenext repeatend ifend ifif DT = DS then  -- ﾃｬﾃｱﾃｬﾋ凖‡ﾃε映ﾃ…[ﾃ運if item 3 of lineS is not empty thenput "ﾃ⑿" & (item 3 of lineS) & "ﾃ⒀" into itemSend ifput "ﾃ…ﾃｹ" & itemS & (item 2 of lineS) & return after eventSnext repeatend ifif char 1 to 6 of DT > char 1 to 6 of DS then  -- ﾃｪﾃ甘･ﾃｩﾃ ﾂｻﾃｫOﾃ‡ﾃε映ﾃ…[ﾃ運ﾃｧﾃ古ｨﾃｺdelete line countVar of bg field "Event"next repeatend ifif item 4 of lineS is not empty and DT < DS then  -- ﾃ雨ﾃ右ﾃ嘉ｬﾃ曳ﾃ｣@ﾃｮ¥ONif item 4 of lineS is "M" and CvSort(addMonth(dateT)) < DS then next repeatput dateT into DT2put StoI(DS) into DSconvert DS to secondsconvert DT2 to secondsif item 4 of lineS is "W" and DT2+604800 < DS then next repeatput (DS-DT2)/86400 into DCput (DC+100) & ",ﾃ…ﾃｹ" & item 2 of lineS & " ﾃ‡窶ｹﾃ‡竕暗①ﾃ‡窶 ﾃ‡竏†" & DC & "ﾃｬﾋ™" & return after eventSCend ifend repeatif eventSC is not empty thensort lines of eventSCrepeat with N=1 to (number of lines of eventSC)set cursor to busyput item 2 of line N of eventSC into line N of eventSCend repeatend ifif eventS is not empty or eventSC is not empty thensort lines of eventSput "ﾃ…ﾃｼﾃ…ﾃｻﾃ…ﾃｼﾃｧﾂｰﾃｬﾋ凖‡ﾃεｳ¥ﾃｭﾃ凝…ﾃｼﾃ…ﾃｻﾃ…ﾃｼ" & return & eventS & eventSC & return after eventFend if--ﾃ①"Schedule"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\--ﾃ①"BirthDay"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃ､Jﾃｩngo to cd "BirthDay"put empty into eventBput number of lines in bg field "Event" into lineNrepeat with countVar=lineN down to 1set cursor to busyif flag2 > 6 then put countVar into lineVar               --ﾃ･窶榲‡ﾃ偲‡ﾂｩﾃ‡ﾃﾃ･ﾃｼﾃｧﾄｱelse put lineN-countVar+1 into lineVar                    --ﾃｫOﾃ‡ﾂｩﾃ‡ﾃﾃ･ﾃｼﾃｧﾄｱput line lineVar in bg field "Event" into lineBput (Item 1 of lineB) & "/" & (Item 3 of lineB) into dateBconvert dateB to dateItemsif flag2 > 6 thenif item 2 of dateB < flag2 then                               --ﾃ･ﾃｼﾃｧﾄｱﾃ‡ﾃεｨIﾃｳﾏ\exit repeatend ifelseif item 2 of dateB > flag2 then                               --ﾃ･ﾃｼﾃｧﾄｱﾃ‡ﾃεｨIﾃｳﾏ\exit repeatend ifend ifif Item 2 to 3 of dateT is Item 2 to 3 of dateB then    --ﾃｧﾂｰﾃｬﾋ凖‡ﾃε映ﾃ…[ﾃ運put "ﾃ…ﾃｶ" & (Item 2 of lineB) after eventB    --ﾃｱﾂｺﾃｫOﾃ‡ﾃεｮ竕､ﾃｪﾃ if Item 3 of lineB is empty then               --ﾃｮNﾃｳﾃ禿‡ﾃε･vﾃｩZput "ﾃ⑨ﾃｧﾃ\" into itemBelseput ((Item 1 of dateT)-(Item 1 of dateB)) & "ﾃｧﾃ\" into itemBend ifif Item 4 of lineB is not empty then                   --Deadif Item 4 of lineB is "D" then            --ﾃｱvﾃｮNﾃｯsﾃｱﾃｦput "Dead" into itemBelse                                                                 --ﾃｱvﾃｮNﾃｨﾃ ﾃｳﾃｹif Item 3 of lineB is empty thenput "Dead" && (Item 4 of lineB) into itemBelseput (Item 3 of lineB) & "-" & (Item 4 of lineB) into itemBend ifend ifend ifput "ﾃ⑿" & itemB & "ﾃ⒀" & return after eventBend ifend repeatif eventB is not empty thenput "ﾃ…ﾃｼﾃ…ﾃｻﾃ…ﾃｼﾃｧﾂｰﾃｬﾋ凖‡ﾃεｭaﾃｪ竏づｬﾋ凖…ﾃｼﾃ…ﾃｻﾃ…ﾃｼ" & return & eventB & return after eventFend if--ﾃ①"BirthDay"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\--ﾃ①"Memorial"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃ､Jﾃｩngo to cd "Memorial"put empty into eventMput number of lines in bg field "Event" into lineNrepeat with countVar=lineN down to 1set cursor to busyif flag2 > 6 then put countVar into lineVar               --ﾃ･窶榲‡ﾃ偲‡ﾂｩﾃ‡ﾃﾃ･ﾃｼﾃｧﾄｱelse put lineN-countVar+1 into lineVar                    --ﾃｫOﾃ‡ﾂｩﾃ‡ﾃﾃ･ﾃｼﾃｧﾄｱput line lineVar in bg field "Event" into lineMput (Item 1 of lineM) & "/" & (Item 3 of lineM) into dateMconvert dateM to dateItemsif flag2 > 6 thenif item 2 of dateM < flag2 then                               --ﾃ･ﾃｼﾃｧﾄｱﾃ‡ﾃεｨIﾃｳﾏ\exit repeatend ifelseif item 2 of dateM > flag2 then                               --ﾃ･ﾃｼﾃｧﾄｱﾃ‡ﾃεｨIﾃｳﾏ\exit repeatend ifend ifif Item 2 to 3 of dateT = Item 2 to 3 of dateM thenif Item 3 of lineM is empty thenput empty into itemMelseput (Item 1 of dateM) & "ﾃｮN " into itemMend ifput "ﾃ⒣\｢" & itemM &(Item 2 of lineM) & return after eventMend ifend repeatif eventM is not empty thenput "ﾃ…ﾃｼﾃ…ﾃｻﾃ…ﾃｼﾃｧﾂｰﾃｬﾋ凖‡ﾃε｣LﾃｮOﾃｬﾋ凖…ﾃｼﾃ…ﾃｻﾃ…ﾃｼ" & return & eventM & return after eventFend if--ﾃ①"Memorial"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\--ﾃ①"Event"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃ､Jﾃｩngo to cd "Event"put item 2 of dateT into pageRput empty into eventEput empty into eventE2put 0 into it1put 0 into lineVarput item 3 of dateT into dateDrepeat while it1<=dateDset cursor to busyadd 1 to lineVarput item 1 of line lineVar of cd field ("Event" & pageR) into it1put item 2 of line lineVar of cd field ("Event" & pageR) into it2put item 3 of line lineVar of cd field ("Event" & pageR) into it3if it1 is empty then exit repeatif it1 is dateD thenput "ﾃ…ﾃｺ" & it2 after eventEif it3 is not empty thenif char 2 of it3 is "/" or char 3 of it3 is "/" thenput "ﾃ⑿" & it3 & "ﾃ‡窶ｹﾃ‡竕暗⒀" after eventEelseput "ﾃ⑿" & it3 & "ﾃｬﾋ凖‡窶ｹﾃ‡竕暗⒀" after eventEend ifend ifput return after eventEend if--ﾃ､ﾋ凖､窶佚ｭﾃ愿‡ﾃε韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃ･ﾃｼﾃｧﾄｱif it1 < dateD and it3 >= dateD thenput it1+1-1 into it1put "(" & it1 & "ﾃ⑶" & it3 & ")" && it2 & return after eventE2end ifif lineVar is number of lines of cd field ("Event" & pageR) then exit repeatend repeat--ﾃｱﾃ ﾃ･ﾃｩﾃ‡ﾃε韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃ･ﾃｼﾃｧﾄｱput number of lines of cd field "Event13" into lineVarrepeat with countVar = 1 to lineVarput item 1 of line countVar of cd field "Event13" into it1put item 2 of line countVar of cd field "Event13" into it2put item 3 of line countVar of cd field "Event13" into it3if it1 = dateD thenif it3 is empty thenput "ﾃ…ﾃｵ" & it2 & return after EventEelseput "ﾃ…ﾃｵ" & it2 & "ﾃ⑿" & it3 & "ﾃｬﾋ凖‡窶ｹﾃ‡竕暗⒀" & return after EventEend ifend ifif it1 < dateD and it3 > 0 thenput "ﾃ…ﾃｵ" & it2 & "ﾃ⑿" & it1 & "ﾃ⑶" & it3 & "ﾃｬﾋ凖‡窶ｹﾃ‡竕暗⒀" & return after EventEend ifend repeatif eventE is not empty or eventE2 is not empty thenput  "ﾃ…ﾃｼﾃ…ﾃｻﾃ…ﾃｼﾃｧﾂｰﾃｬﾋ凖‡ﾃε韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃ…ﾃｼﾃ…ﾃｻﾃ…ﾃｼ" & return & eventE & eventE2 & return after eventFend if--ﾃ①"Event"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\--ﾃ①"Budget Note"ﾃ‡ﾃεｬ]ﾃｫﾃｳﾃｨﾃ ﾃｳﾃｹgo to cd "CBList"send "mouseUp" to cd btn "C.B.List"go to cd "ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹3"send "mouseUp" to cd btn "ﾃ｣竕 ﾃｪﾃ淌ｧﾃ古ｨﾃｺ"go to cd "ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹4"if (value of selectedLine of cd btn "ﾃ映ﾃ…[ﾃ運ﾃｬ]ﾃｫﾃｳ") is "ON" thengo to cd "BudgetIndex"send "mouseUp" to cd field "ﾃｮNﾃ･ﾃｩ"put cd field "List" of cd "BudgetIndex" into BLgo to cd "MenuIndex"put "ﾃ…ﾃｼﾃ…ﾃｻﾃ…ﾃｼﾃｧﾂｰﾃ･ﾃｩﾃ‡ﾃεｩxﾃｯ窶｢ﾃｨﾃ禿ｯﾃ津…ﾃｼﾃ…ﾃｻﾃ…ﾃｼ" & return after eventFrepeat with N=1 to (number of lines of cd field "List" in cd "BudgetIndex")set cursor to busyput (item 1 to 3 of line N of BL) & return after eventFend repeatput number of lines of cd field "Event" into Nput empty into char 1 to 4 of line N of eventFput "ﾃ①" into char 1 to 8 of line (N-1) of eventFif char 1 of line (N-3) of eventF is "-" then put "ﾃ①ﾃ①ﾃ①" into char 1 to 7 of line (N-2) of eventFend if--ﾃ①"Budget Note"ﾃ‡ﾃεｬ]ﾃｫﾃｳﾃｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\--ﾃ①"MenuIndex"ﾃ‡ﾃｷﾃ韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃ映ﾃ…[ﾃ運ﾃ‡ﾃε｣Lﾃｬﾂｸput eventF into cd field "Event" in cd "MenuIndex"end dailyTimeon checkListglobal dateT--ﾃ①"RBList"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹgo to cd "RBList"put CvSort(dateT) into dateSput cd field "List" into SLput number of lines of SL into SNrepeat while SN>0set cursor to busyput char 1 of item 5 of line SN of SL into SL5put 0 into Checkif (SL5 is "Y" or SL5 is "M" or SL5 is "N") and (char 1 to 6 of line SN of SL < char 1 to 6 of dateS) then put 1 into Checkif (SL5 is "W" or SL5 is "D") and (item 1 of line SN of SL < dateS) then put 1 into Checkif Check=1 thenput line SN of SL into SL0put item 2 of SL0 into item 1 of SL0put char 1 to 4 of item 2 of SL0 & "/" & char 5 to 6 of item 2 of SL0 & "/" & char 7 to 8 of item 2 of SL0 into SL2put CvSort(FindDate(CvItem(SL2),item 5 of SL0)) into item 2 of SL0put trunc(((item 7 of SL0)*(item 6 of SL0-1)+(item 3 of SL0))/(item 6 of SL0)) into item 3 of SL0add 1 to item 6 of SL0put item 3 of SL0 into item 7 of SL0put SL0 into line SN of SLadd 1 to SN          -- ﾃｬﾃ佚‡竏づｧsﾃ‡ï｣ｿﾃｧﾆ津ｬxﾃｭ竕､ﾃ‡笳甘‡ﾃˆend ifsubtract 1 from SN     -- ﾃｩﾃｼﾃ‡ﾃεｧsﾃ‡ï｣ｿﾃｭ竕､ﾃ‡笳甘‡ﾃˆend repeatsort SLput SL into cd field "List"--ﾃ①"RBList"ﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃｨIﾃｳﾏ\end checkListfunction CvItem dateR-- date (1999/12/31) to Item (1999,12,31)put "," into char offset("/",dateR) of dateRput "," into char offset("/",dateR) of dateRput ",0,0,0,0" after dateRreturn dateRend CvItemfunction CvDate dateR-- Item (1999,12,31) to date (1999/12/31)put (item 1 of dateR) & "/" & (item 2 of dateR) & "/" & (item 3 of dateR) into dateRreturn dateRend CvDatefunction addMonth dateR-- ﾃｳﾃ‡ﾃ･ﾃｩﾃ‡窶ｦﾃｯﾅ禿ｧX(1995,12,31,,,,) Item to Item (1996,1,31)put (item 2 of dateR)+1 into item 2 of dateRif item 2 of dateR is 13 thenput (item 1 of dateR)+1 into item 1 of dateRput 1 into item 2 of dateRend ifreturn dateRend addMonthfunction CvSort dateR-- ﾃ噂ﾃ…[ﾃ曳ﾃｳpﾃｬﾋ凖ｯt Item (1999,12,31) to Sort (19991231)put (item 1 of dateR)*10000+(item 2 of dateR)*100+(item 3 of dateR) into dateRreturn dateRend CvSortfunction StoI dateR-- Sort (19991231) to Item (1999,12,31)put "," after char 6 of dateRput "," after char 4 of dateRput ",0,0,0,0" after dateRreturn dateRend StoIfunction FindDate dateS,code-- Item (1999,12,31) to itemput char 1 of code into Cd1put char 2 to (number of chars of code) of code into Cd2put item 1 of dateS into DS1put item 2 of dateS into DS2put item 3 of dateS into DS3-- ﾃｬﾂｸﾃｳﾃ陛ｬﾋ凖ｯtﾃ‡ﾃε荏ﾃ宇ﾃ叡ﾃ丑if 50 < DS1 and DS1 < 100 then add 1900 to DS1if 0 <= DS1 and DS1 < 51 then add 2000 to DS1if DS2 < 1 then put 1 into DS2if DS2 > 12 then put 12 into DS2if DS3 < 1 then put 1 into DS3if (DS2 is 4 or DS2 is 6 or DS2 is 9 or DS2 is 11) and DS3 > 30 thenput 30 into DS3elseif DS2 is 2 and DS3 > 28 thenif ((DS1 mod 4) is 0 and (DS1 mod 100)  is not 0) or (DS1 mod 400) is 0 thenput 29 into DS3elseput 28 into DS3end ifelseif DS3 > 31 then put 31 into DS3end ifend if-- ﾃ､ecodeﾃ荏ﾃ宇ﾃ叡ﾃ丑if Cd1="Y" thenput DS1+Cd2 into DS1end ifif Cd1="M" thenput (DS2+Cd2-1) div 12 + DS1 into DS1put ((DS2+Cd2-1) mod 12)+1 into DS2if (DS2 is 4 or DS2 is 6 or DS2 is 9 or DS2 is 11) and DS3 > 30 thenput 30 into DS3elseif DS2 is 2 and DS3 > 28 thenif ((DS1 mod 4) is 0 and (DS1 mod 100)  is not 0) or (DS1 mod 400) is 0 thenput 29 into DS3elseput 28 into DS3end ifend ifend ifend ifif Cd1="N" thenput ((DS2+Cd2-1) div 12)+DS1 into DS1put ((DS2+Cd2-1) mod 12)+1 into DS2put 31 into DS3if DS2 is 4 or DS2 is 6 or DS2 is 9 or DS2 is 11 thenput 30 into DS3elseif DS2 is 2 thenif ((DS1 mod 4) is 0 and (DS1 mod 100)  is not 0) or (DS1 mod 400) is 0 thenput 29 into DS3elseput 28 into DS3end ifend ifend ifend ifput DS1 into item 1 of dateSput DS2 into item 2 of dateSput DS3 into item 3 of dateSconvert dateS to secondsif Cd1="W" thenput dateS+Cd2*604800 into dateSend ifif Cd1="D" thenput dateS+Cd2*86400 into dateSend ifconvert dateS to dateItemsreturn dateSend FindDatefunction selFont SF,Nput cd btn N into MFrepeat with count=1 to number of lines of MFset cursor to busyif line count of MF is SF thenput count && SF after cd field "Sample"return countend ifend repeatput count && SF after cd field "Sample"if N=1 then put "Apple Chancery" into SFif N=2 or N=4 then put "ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃƒ" into SFif N=3 then put "Chicago" into SFrepeat with count=1 to number of lines of MFset cursor to watchif line count of MF is SF thenput "2-" &&count && SF after cd field "Sample"return countend ifend repeatreturn countend selFontfunction checkDate CLif char 1 of CL is "M" or char 1 of CL is "W" then--3ﾃｯ竏づｩﾃｶﾃｱ竅„ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ⑿ﾃｬﾋ凖‡邃｢ﾃ ﾃ催･ﾃ姪⒀if char 3 of CL is "," thenput "0" before char 2 of CLend ifelse--ﾃ㈻ﾃｯ竏づｩﾃｶﾃｱ竅„ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ⑿ﾃ･ﾃｩﾃ‡邃｢ﾃ ﾃ催･ﾃ姪⒀if char 2 of CL is "/" then put "0" before CL--ﾃ㈵ﾃｯ竏づｩﾃｶﾃｱ竅„ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ⑿ﾃｬﾋ凖‡邃｢ﾃ ﾃ催･ﾃ姪⒀if char 5 of CL is "," then put "0" before char 4 of CLend ifreturn CLend checkDateon closeStackglobal PWput PW into cd field "PW" of cd "Shurey"go to cd "MenuIndex"show cd field "Shurey"end closeStackon ChLineput target into FNrepeat with N=(number of lines of FN) down to 1if line N of FN is empty then delete line N of FNend repeatput FN into targetend ChLine</script>
  17.     <background id="2606" file="background_2606.xml" name="DailySoftBG" />
  18.     <background id="4658" file="background_4658.xml" name="MenuBG" />
  19.     <background id="6392" file="background_6392.xml" name="StationeryBG" />
  20.     <background id="8590" file="background_8590.xml" name="SupportBG" />
  21.     <background id="10734" file="background_10734.xml" name="AddressBG" />
  22.     <background id="12005" file="background_12005.xml" name="CCardBG" />
  23.     <background id="22099" file="background_22099.xml" name="BK-BG" />
  24.     <background id="23252" file="background_23252.xml" name="Budget" />
  25.     <background id="23991" file="background_23991.xml" name="Diary" />
  26.     <card id="5476" file="card_5476.xml" marked="true" name="MenuIndex" owner="4658" />
  27.     <card id="10831" file="card_10831.xml" marked="true" name="AddressIndex" owner="10734" />
  28.     <card id="4119" file="card_4119.xml" marked="false" name="" owner="10734" />
  29.     <card id="8289" file="card_8289.xml" marked="true" name="SupportIndex" owner="8590" />
  30.     <card id="5938" file="card_5938.xml" marked="false" name="" owner="8590" />
  31.     <card id="11541" file="card_11541.xml" marked="true" name="CCardIndex" owner="12005" />
  32.     <card id="4390" file="card_4390.xml" marked="false" name="" owner="12005" />
  33.     <card id="22757" file="card_22757.xml" marked="true" name="CBInput" owner="22099" />
  34.     <card id="24488" file="card_24488.xml" marked="true" name="BudgetIndex" owner="23252" />
  35.     <card id="24780" file="card_24780.xml" marked="false" name="CBList" owner="23252" />
  36.     <card id="25645" file="card_25645.xml" marked="true" name="RBInput" owner="23252" />
  37.     <card id="24206" file="card_24206.xml" marked="false" name="RBList" owner="23252" />
  38.     <card id="2166" file="card_2166.xml" marked="false" name="BirthDay" owner="4658" />
  39.     <card id="2356" file="card_2356.xml" marked="false" name="Memorial" owner="4658" />
  40.     <card id="37518" file="card_37518.xml" marked="false" name="Event" owner="4658" />
  41.     <card id="22469" file="card_22469.xml" marked="false" name="Schedule" owner="4658" />
  42.     <card id="3745" file="card_3745.xml" marked="true" name="DailySoft" owner="2606" />
  43.     <card id="13066" file="card_13066.xml" marked="false" name="ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹1" owner="2606" />
  44.     <card id="17951" file="card_17951.xml" marked="false" name="ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹2" owner="2606" />
  45.     <card id="22799" file="card_22799.xml" marked="false" name="ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹3" owner="2606" />
  46.     <card id="25417" file="card_25417.xml" marked="false" name="ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹4" owner="2606" />
  47.     <card id="7933" file="card_7933.xml" marked="true" name="MailEdit" owner="2606" />
  48.     <card id="27986" file="card_27986.xml" marked="true" name="Autobiography1" owner="2606" />
  49.     <card id="28826" file="card_28826.xml" marked="false" name="Autobiography2" owner="2606" />
  50.     <card id="29309" file="card_29309.xml" marked="false" name="Autobiography3" owner="2606" />
  51.     <card id="29539" file="card_29539.xml" marked="false" name="Autobiography4" owner="2606" />
  52.     <card id="30750" file="card_30750.xml" marked="false" name="Autobiography5" owner="2606" />
  53.     <card id="30672" file="card_30672.xml" marked="false" name="Autobiography6" owner="2606" />
  54.     <card id="36213" file="card_36213.xml" marked="false" name="Autobiography7" owner="2606" />
  55.     <card id="2926" file="card_2926.xml" marked="false" name="Graph1" owner="2606" />
  56.     <card id="12913" file="card_12913.xml" marked="false" name="Shurey" owner="2606" />
  57.     <card id="24875" file="card_24875.xml" marked="true" name="D0000" owner="23991" />
  58.     <card id="5750" file="card_5750.xml" marked="false" name="Stationery" owner="6392" />
  59.     <card id="4979" file="card_4979.xml" marked="false" name="BirthdayCard" owner="6392" />
  60. </stack>
  61.